5 REM MOD.CREDIT CARD
50 POKE53280,15:POKE53281,15:PRINTCHR$(14)"[147]"
100 FI$="[195]REDIT [195]ARD [198]ILE":L=12
110 M$(1)="  [152][206]EXT         [152][208]REVIOUS         [152][205]ENU "
115 M$(2)="[152]     [163]            [163]                [163]"
120 S=25:DIM CN$(S),NO$(S),ED$(S),TY$(S)
130 M$(3)="[212]HERE ARE NO [208][210][201][207][210] [197]NTRIES FOR [195]ATEGORY"
140 M$(4)="[212]HERE ARE NO [205][207][210][197] [197]NTRIES FOR [195]ATEGORY"
150 CL$="                                        "
170 PRINT""FI$"BY [205]ICHAEL [210]EICH"
175 PRINT"[152][201]NSTRUCTIONS? [Y/N]"
180 GETA$:IFA$=""THEN180
185 IFA$="[217]"ORA$="Y"THENGOSUB6000
190 GOTO300
200 REM    SCREEN LOCATER & PAGE HEADER
202 REM  * * * * * * * * * * * * * * * *
210 PRINT"";
220 IFY<>0THENPOKE214,Y-1:PRINT
230 POKE211,X:RETURN
240 REM
250 PRINT"[147]":X=L:Y=1:GOSUB200:PRINTFI$:X=15:Y=3:GOSUB200:PRINT"[205]ENU"
260 RETURN
300 REM           READ FILE
302 REM  * * * * * * * * * * * * * * * *
320 READTY$:IFTY$="END"THEN390
330 READCN$,NO$,ED$,A1$,A2$
340 IFTY$="[199]"THENEN$(0,G)=CN$+NO$+ED$+A1$+A2$:G=G+1
350 IFTY$="[211]"THENEN$(1,SS)=CN$+NO$+ED$+A1$+A2$:SS=SS+1
360 IFTY$="[207]"THENEN$(2,O)=CN$+NO$+ED$+A1$+A2$:O=O+1
370 GOTO320
380 REM
390 GOTO4000
400 REM               PRINT FILE
402 REM  * * * * * * * * * * * * * * * *
410 PRINT"[147]":REM PRINT PAGE HEADER
420 FORM=X1TOX2:FORN=0TOY1
430 CN$=LEFT$(EN$(M,N),18):NO$=MID$(EN$(M,N),19,19):ED$=MID$(EN$(M,N),38,5)
435 A1$=MID$(EN$(M,N),43,20):A2$=RIGHT$(EN$(M,N),8)
440 PRINT"":IFCN$=""THEN560
450 PRINT"[152][195]ARD [206]AME:   [146] "CN$:PRINT
460 PRINT"[152][195]ARD [206]UMBER: [146] "NO$:PRINT
470 PRINT"[152][197]XP. [196]ATE:   [146] "ED$:PRINT
475 PRINT"[152][193]DDRESS:     [146] "A1$:PRINTTAB(15)A2$
480 X=0:Y=22:GOSUB200:PRINTM$(1)+M$(2)
490 K=0:GETA$:IFA$=""THEN490
495 A=ASC(A$)
500 IFA=77ORA=205 THENGOSUB250:RETURN
503 IFA$="[208]"ORA$="P"THENIFC=1THEN565
504 IFA$="[208]"ORA$="P"THENN=N-2:IFN>=-1THEN560
505 IFC>1THENIFN<0THENX= 0:Y=15:GOSUB200:PRINTM$(3):FORK=0TO2000:NEXT
510 IFKTHENX=0:Y=15:GOSUB200:PRINTCL$:N=N+2:GOTO490
530 IFA$<>"[206]"ANDA$<>"N"THEN490
535 IFC=1THENIFN+1>=Y1THEN570
540 IFN+1>=Y1THENX=0:Y=15:GOSUB200:PRINTM$(4):FORK=0TO2000:NEXT
550 IFKTHENX=0:Y=15:GOSUB200:PRINTCL$:GOTO490
560 IFC<>1THEN NEXTN
565 IFC=1THENIF(A$="[208]"ORA$="P")THENIF(N>0 ANDN<=G)THENN=N-1:GOTO430
567 IFC=1THENIF(A$="[208]"ORA$="P")THENIFN=0THENM=M-1:N=G:IFM>=0THEN430
568 IFC=1THENIFM<0THENX=0:Y=15:GOSUB200:PRINTM$(3):FORK=0TO2500:NEXT
569 IFKTHENX=0:Y=15:GOSUB200:PRINTCL$:GOSUB250:RETURN
570 IFC=1THENIFN<GTHENNEXTN
572 IFC=1THENIFM<>X2THEN NEXTM
575 IFC=1THENIFM=X2THENX=0:Y=15:GOSUB200:PRINTM$(4):FORK=0TO2000:NEXT:GOTO550
580 GOTO490
1000 REM              DATA
1003 REM *******************************                 GASOLINE
1005 :
1010 DATA"[199]","[208]HILLIPS [208]ETROLEUM","123-456-789-0      ",11/85
1015 DATA"[208][207][194]OX77,[194]ARTLESVILLE","[207][203] 74004"
1020 DATA"[199]","[212]OTAL [208]ETROLEUM   ","12345-678-90123    ","NONE "
1025 DATA"[193]LMA                ","[205][201] 48801"
1030 DATA"[199]","[199]ULF [207]IL [195]ORP.    ","12345-67890        ",03/85
1035 DATA"                    ","        "
1099 REM *******************************                STORES
1100 DATA"[211]","[211]EARS [210]OEBUCK & [195]O","1-23456-78901-2    ","NONE "
1105 DATA"                    ","        "
1110 DATA"[211]","[202][195] [208]ENNEY         ","123-456-789-0      ","NONE "
1115 DATA"                    ","        "
1120 DATA"[211]","[205]ONTGOMERY [215]ARD   ","123-456-789-0123   ","NONE "
1125 DATA"                    ","        "
1199 REM *******************************                 OTHER
1200 DATA"[207]","[205]ASTER [195]HARGE-[201]OWA","1234-5678-9012-3456",03/84
1205 DATA"[208][207][194]OX14361,[207]MAHA    ","[206][197] 68114"
1210 DATA"[207]","[201]NSTANT [195]ASH      ","1234-5678-9012345  ","NONE "
1215 DATA"[208][207][194]OX[194]-1608,[205]INNEAP.","[205][206] 55480"
2099 DATA END
4000 REM * * * * * * * * * * * * * * * *
4002 REM             BUBBLE SORT
4010 PRINT"[147]"TAB(10)"[193]LPHABETIZING"
4015 PRINT""TAB(10)"[193]LL [196]ATA":PRINTTAB(10)"[208]LEASE [215]AIT"
4020 FORM=0TO2:KK=0:N=G:IFM=1THENN=SS
4025 IFM=2THENN=O
4030 FORI=0TON-1:IFEN$(M,I+1)=""THENKK=KK+1:GOTO4140
4040 IFEN$(M,I)>EN$(M,I+1)THENK=1:GOTO4090
4050 IFEN$(M,I)<=EN$(M,I+1)THENK=0:GOTO4140
4090 T$=EN$(M,I):EN$(M,I)=EN$(M,I+1):EN$(M,I+1)=T$
4140 NEXTI:IFKK<>N-1THEN4025
4160 NEXTM:GOTO5000
5000 REM * * * * * * * * * * * * * * * *
5002 REM            MENU 1
5020 GOSUB250
5030 X=10:Y=5:GOSUB200:PRINT" [211]ELECT: "
5040 Y=7:GOSUB200:PRINT"[152]1  [210]EVIEW [198]ILE":Y=9:GOSUB200:PRINT"[152]2  [213]PDATE"
5050 Y=11:GOSUB200:PRINT"[152]3  [209]UIT"
5060 GETA$:A=VAL(A$):IFA<1ORA>3THEN5060
5070 ONAGOTO5200,5090,5100
5080 GOTO5060
5090 LIST1000-4000
5100 REM * * * * * * * * * * * * * * * *
5102 REM            QUIT
5110 PRINT"[147]"CHR$(142):END
5200 REM * * * * * * * * * * * * * * * *
5202 REM       REVIEW FILE MENU (2)
5205 :
5210 PRINT"":FORX=5TO11STEP2:PRINTCL$:NEXT
5220 X=10:Y=5:GOSUB200:PRINT"[210]EVIEW:"
5230 Y=7:GOSUB200:PRINT"[152]1  [193]LL":Y=9:GOSUB200:PRINT"[152]2  [199]ASOLINE"
5240 Y=11:GOSUB200:PRINT"[152]3  [211]TORES":Y=13:GOSUB200:PRINT"[152]4  [207]THER"
5250 Y=15:GOSUB200:PRINT"[152]5  [209]UIT"
5260 C=0:GETC$:C=VAL(C$):IFC<1ORC>5THEN5260
5270 IFC=5THEN5000
5280 IFC=1THENX1=0:X2=2:Y1=G
5290 IFC=2THENX1=0:X2=0:Y1=G
5300 IFC=3THENX1=1:X2=1:Y1=SS
5310 IFC=4THENX1=2:X2=2:Y1=O
5330 GOSUB400:GOTO5200
6000 REM * * * * * * * * * * * * * * * *
6002 REM            INSTRUCTIONS
6003 REM * * * * * * * * * * * * * * * *
6010 PRINT"[147]"FI$"-[201]NSTRUCTIONS"
6030 PRINT"[196]ATA FOR EACH CREDIT CARD IS ENTERED"
6040 PRINT"BEGINNING AT LINE 1000."
6050 PRINT"[197]ACH CARD HAS THE FOLLOWING ENTRIES:"
6060 PRINTTAB(5)"[212]YPE[152] ([199] FOR GASOLINE, [211] FOR [211]TORE,           [207] FOR [207]THER)"
6070 PRINTTAB(5)"[206]AME OF CARD[152] (UP TO 18 LETTERS)"
6080 PRINTTAB(5)"[195]ARD [206]UMBER[152] ( UP TO 19 NUMBERS)"
6090 PRINTTAB(5)"[197]XPIRATION [196]ATE[152] (UP TO 5 CHAR-               ACTERS)"
6095 PRINTTAB(5)"[193]DDRESS[152] (UP TO 39 CHARACTERS IN TWO           LINES)"
6100 PRINT"[198]OR EXAMPLE, HERE IS A SAMPLE ENTRY-"
6110 CR$=CHR$(34)
6120 PRINTTAB(5)"DATA "CR$"[199]"CR$","CR$"[195]ONOCO            "CR$","
6125 PRINTTAB(5)CR$"XX-XXX-XXXX        "CR$","CR$"05/85"CR$
6130 PRINTTAB(5)"DATA "CR$"1234 [205]AIN [211]T.,[212]AMPA "CR$","SPC(20)CR$"[198][204] 11111"CR$
6140 PRINT"[152][210]E-SAVE THE ENTIRE PROGRAM AFTER           ENTERING NEW DATA"
6150 PRINTTAB(8)"[152][208]RESS ANY KEY TO CONTINUE"
6160 GETA$:IFA$=""THEN6160
6170 RETURN